home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / increase.e < prev    next >
Text File  |  1999-06-14  |  450b  |  32 lines
  1. OPT LARGE
  2.  
  3. MODULE '*testspeed'
  4.  
  5. CONST LOTS_OF_TIMES=2000000
  6.  
  7. DEF x
  8.  
  9. PROC main()
  10.   test({addone},   'x:=x+1',      LOTS_OF_TIMES) ; x:=0
  11.   test({addql},    'ADDQ.L #1,x', LOTS_OF_TIMES) ; x:=0
  12.   test({addqb},    'ADDQ.B #1,x', LOTS_OF_TIMES) ; x:=0
  13.   test({increase}, 'INC x',       LOTS_OF_TIMES) ; x:=0
  14. ENDPROC
  15.  
  16. PROC addone()
  17.   x:=x+1
  18. ENDPROC
  19.  
  20. PROC increase()
  21.   INC x
  22. ENDPROC
  23.  
  24. PROC addql()
  25.   ADDQ.L #1,x
  26. ENDPROC
  27.  
  28. PROC addqb()
  29.   ADDQ.B #1,x
  30. ENDPROC
  31.  
  32.